home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00407.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  630 b   |  29 lines
  1. on exitFrame
  2.   global effectspath
  3.   sound playFile 2, effectspath & "opengate.aif"
  4.   repeat with i = 13 to 30
  5.     sprite(i).visible = 1
  6.     puppetSprite(i, 0)
  7.   end repeat
  8.   if sprite(5) = 1 then
  9.     sprite(6).visible = 1
  10.     sprite(9).visible = 0
  11.     sprite(12).visible = 0
  12.   else
  13.     if sprite(8) = 1 then
  14.       sprite(6).visible = 0
  15.       sprite(9).visible = 1
  16.       sprite(12).visible = 0
  17.     else
  18.       if sprite(11) = 1 then
  19.         sprite(6).visible = 0
  20.         sprite(9).visible = 0
  21.         sprite(12).visible = 1
  22.       else
  23.         sprite(6).visible = 1
  24.         sprite(5).visible = 1
  25.       end if
  26.     end if
  27.   end if
  28. end
  29.